10 INPUTG:FORT=2TO64:HIRES:GOSUB20:NEXTT:GOTO10
20 FORI=40960TO48959STEPG:FORA=17TO23:I=I+T:POKEI,A:NEXTA,I:RETURN